(compilation-mode-font-lock-keywords):

Minor sanity check on the `hyperlink' slot.

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 00b9830516fdc7d9db636ca16fa58f5ab997f4ae..9aaa992ca767f323529134628775506ef1b8ccf6 100644 (file)
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -703,6 +703,9 @@ FILE should be (FILENAME . DIRNAME) or nil."
                             ,(if col `(match-string ,col)))))
                (,file compilation-error-face t))
 
+           (unless (or (null (nth 5 item)) (integerp (nth 5 item)))
+             (error "HYPERLINK should be an integer: %s" (nth 5 item)))
+
            `(,(nth 0 item)
 
              ,@(when (integerp file)